<%@ Language=VBScript %> <%' (c) Copyright 1999-2004 PaperCut Software Pty. Ltd. %> <% Dim intMAX_COUNT intMAX_COUNT = 100 %> <% Dim objPCWebLog Set objPCWebLog = CreateObject("PCWebAdmin.PCWebLog") If objPCWebLog.Error Then WriteErrorMessage objPCWebLog.ErrorDescription End If Dim strUserName strUserName = Trim(Request("strUserName")) If Not gblnIsAdmin or Request("strMyLogs") <> "" Then strUserName = gstrLoggedInUser End If If strUserName <> "" Then objPCWebLog.RestrictedOnUser(Trim(strUserName)) Response.Write "

" & GetTextReplace("RecentPrintLogsBy", Array(strUserName)) & "

" WriteUserAdminLinks(strUserName) Call DisplayList(False) WriteUserAdminLinks(strUserName) Else 'objPCWebLog.FullLog ' Defaults to this anyway Response.Write "

" & GetText("RecentPrintJobs") & "

" Call DisplayList(True) End If Set objPCWebLog = Nothing Sub DisplayList(blnShowUser) Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF If blnShowUser Then Response.Write "" & vbCRLF End If Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF If gblnHasChargeBack Then Response.Write "" & vbCRLF End If Response.Write "" & vbCRLF objPCWebLog.MoveFirst Dim intCount intCount = 0 do while ((not objPCWebLog.EOF) and intCount < intMAX_COUNT) Response.Write "" & vbCRLF Response.Write "" & vbCRLF If blnShowUser Then Response.Write "" & vbCRLF End If Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF 'Response.Write "" & vbCRLF Response.Write "" & vbCRLF If gblnHasChargeBack Then Response.Write "" & vbCRLF End If Response.Write "" & vbCRLF objPCWebLog.MoveNext intCount = intCount + 1 loop Response.Write "

" & GetText("Time") & "	" & GetText("User") & "	" & GetText("Printer") & "	" & GetText("Document") & "	" & GetText("Pages") & "	" & GetText("Cost") & "	" & GetText("Status") & "	" & GetText("Account") & "
" & objPCWebLog.Time & "	" & objPCWebLog.UserName & "	" & objPCWebLog.PrinterName & "	" & objPCWebLog.DocumentName & "	" & FormatNumber(objPCWebLog.Pages, 0, true, false, true) & "	" & objPCWebLog.CostText & "	" & objPCWebLog.Status & "	" DisplayPrintJobStatus objPCWebLog.Status, objPCWebLog.UserName, objPCWebLog.Cost, objPCWebLog.LogEntryID, objPCWebLog.Refunded, objPCWebLog.Cancelled, objPCWebLog.Denied Response.Write "	" & objPCWebLog.Account & "

" & vbCRLF Response.Write "" & vbCRLF End Sub %>